home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / programm / MM2_DEV / S / TEST / SYSINF.M < prev    next >
Encoding:
Text File  |  1993-05-02  |  2.6 KB  |  103 lines
  1. MODULE DoSysInfo;
  2.  
  3. FROM InOut IMPORT WriteString, WriteLn, Read, WriteCard, WriteHex;
  4. FROM Clock IMPORT Date;
  5. FROM TimeConvert IMPORT DateToText;
  6. FROM SysInfo IMPORT GetTOSVersion, CPU, FPU, noFPU, internalFPU, externalFPU,
  7.         FPUModel, Machine;
  8. IMPORT GEMDOS, GEMEnv, AESMisc, PrgCtrl, Directory, PathEnv;
  9.  
  10.  
  11. VAR
  12.   v,r: CARDINAL; d: Date; s,s2: ARRAY [0..255] OF CHAR; ch: CHAR;
  13.   handle: GEMEnv.DeviceHandle;
  14.   ok: BOOLEAN;
  15.  
  16. BEGIN
  17.   WriteString ('TOS ');
  18.   GetTOSVersion (v,r,d);
  19.   WriteCard (v,0);
  20.   WriteString ('.');
  21.   WriteCard (r,0);
  22.   WriteString (' / ');
  23.   DateToText (d, '', s);
  24.   WriteString (s);
  25.   WriteLn;
  26.   WriteLn;
  27.   WriteString ('GEMDOS-Version: ');
  28.   GEMDOS.Version (v);
  29.   WriteHex (v, 5);
  30.   WriteLn;
  31.   WriteLn;
  32.   WriteString ('Machine: Atari ');
  33.   CASE Machine () OF
  34.     0: WriteString ('ST')|
  35.     1: WriteString ('STE')|
  36.     2: WriteString ('TT')|
  37.   END;
  38.   WriteLn;
  39.   WriteLn;
  40.   WriteString ('CPU: ');
  41.   WriteCard (CPU (), 0);
  42.   WriteLn;
  43.   WriteString ('FPU: ');
  44.   CASE FPU () OF
  45.     noFPU:       WriteString ('not available')|
  46.     internalFPU: WriteString ('internal (')|
  47.     externalFPU: WriteString ('external (')
  48.   END;
  49.   CASE FPUModel () OF
  50.     0: |
  51.     1: WriteString ('68881)')|
  52.     2: WriteString ('68882)')|
  53.   END;
  54.   WriteLn;
  55.   GEMEnv.InitGem (GEMEnv.RC, handle, ok);
  56.   IF NOT ok THEN WriteString ('Error on InitGEM!'); WriteLn END;
  57.   WriteLn;
  58.   (* Der 'HomePath' wird erst durch 'InitGem' gesetzt! *)
  59.   WriteString ('HomePath: '); WriteString (PathEnv.HomePath); WriteLn;
  60.   WriteString ('Current Path: '); WriteString (Directory.DefaultPath()); WriteLn;
  61.   WriteLn;
  62.   WriteString ('GEMVersion: ');
  63.   WriteHex (GEMEnv.GEMVersion(),5);
  64.   WriteLn;
  65.   WriteString ('GEM Application-ID: ');
  66.   WriteCard (GEMEnv.ApplicationID(),0);
  67.   WriteLn;
  68.   WriteLn;
  69.   WriteString ('Scrap Dir: ');
  70.   AESMisc.ReadScrapDir (s);
  71.   IF GEMEnv.GemError () THEN WriteString ('Error!'); WriteLn END;
  72.   WriteString (s);
  73.   WriteLn;
  74.   WriteLn;
  75.   WriteString ('Searching for DOSYSINF.*...');
  76.   s:= 'DOSYSINF.*';
  77.   AESMisc.ShellFind (s);
  78.   IF GEMEnv.GemError () THEN
  79.     WriteString ('  Not found!');
  80.   ELSE
  81.     WriteString ('  Found ');
  82.     WriteString (s);
  83.   END;
  84.   WriteLn;
  85.   WriteLn;
  86.   WriteString ('ShellRead...');
  87.   WriteLn;
  88.   AESMisc.ShellRead (s, s2);
  89.   IF GEMEnv.GemError () THEN
  90.     WriteString ('Error!')
  91.   ELSE
  92.     WriteString ('  cmd : ');
  93.     WriteString (s);
  94.     WriteLn;
  95.     WriteString ('  tail: ');
  96.     WriteString (s2);
  97.   END;
  98.   WriteLn;
  99.   WriteString ('End of program.');
  100.   WriteLn;
  101.   Read (ch);
  102. END DoSysInfo.
  103.